macdrivermuseum.net/www.macdrivermuseum.net.tar/www.macdrivermuseum.net/cdt.hqx/CDT Folder/Audio/PlayCD/stack.txt

Text File | 1990-09-19 | 5KB | 186 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2644
-- card count: 15
-- first card id: 5079
-- list block id: 2087
-- print block id: 3503
-- font table block id: 0
-- style table block id: 0
-- free block count: 17
-- free size: 45824 bytes
-- total size: 90112 bytes
-- stack block size: 8704 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
s-- JukeBox Stack ©1990 by Optical Media International
-- 485 Alberto Way
-- Los Gatos, CA 95032
-- contact OMI at [phone] for licensing information.

on openstack
  global Available, nextSCSI, gPorts,gtext,gPlay
  hide menubar
  set the userlevel to 5
  put 0 into nextSCSI
  put "" into Available
  put "" into gPorts
  put "D" into gPlay
  go cd 1
  put bg fld IntroText into gText
end openstack

on closeStack
  lock screen
  repeat with i = 1 to number of cards
    set cursor to busy
    go cd i
    put "" into bg fld Marquee
    put "" into bg fld Port
    set cursor to busy
    send mouseWithin to bg fld PhonyScroll
    put "(No Tracks Installed)" into bg fld JukeList
    put "" into bg fld TracksChecked
  end repeat
  set cursor to hand
  unlock screen
end closeStack

on idle
  global xxxCDRefNum, nextSCSI, gPorts
  CDOpen nextSCSI
  if xxxCDRefNum <> 0 then --if there's a disc inserted
    if line (nextSCSI+1) of gPorts = "" then
      handleInsert nextSCSI
    else
      if line (nextSCSI+1) of gPorts <> CDIdent() then handleInsert nextSCSI
    end if
  else
    if line (nextSCSI +1) of gPorts <> "" then handleEject nextSCSI
  end if
  if nextSCSI=6 then put 0 into nextSCSI -- don't check the Mac (id7).
  else add 1 to nextSCSI
end idle

on handleInsert id
  global gPorts, gJukeList
  lock screen
  set cursor to busy
  CDOpen id
  put CDIdent() into line (id+1) of gPorts
  go cd 1
  find CDIdent() in bg fld discID
  if the result is "Not Found" then
    newDisc CDIdent(),id
  else
    put id into bg fld Port
  end if
  set cursor to hand
  unlock screen
end handleInsert

on handleEject id
  global gPorts, gJukeList,gJukes
  lock screen
  set cursor to busy
  put "" into line (id+1) of gPorts
  --remove unavailable tracks from the JukeList global
  repeat with n = (number of lines in gJukeList) down to 1
    if item 1 of line n of gJukeList = id then
      delete line n of gJukeList
      delete line n of gJukes
    end if
  end repeat
  put number of this card into start
  go cd 1
  find id in bg fld Port
  if the result <> "Not Found" then
    put "" into bg fld Port
  end if
  go card start
  set cursor to hand
  unlock screen
end handleEject

on newDisc cdid, idI
  ask "Name of CD in drive"&&idI&":" with "Artist,Title"
  put it into name
  doMenu "New Card"
  put item 1 of name into bg fld Artist
  put item 2 of name into bg field Title
  put cdid into bg fld discID
  put idI into bg fld Port
  cdOpen
  put item 2 of CDTrack() into numtracks
  repeat with i = 1 to numtracks
    put "Track"&&i&return after bg fld TrackList
    put ""&return after bg fld phonyscroll
  end repeat
end newDisc


on Help
  global gtext
  lock screen
  show bg fld Intro
  show bg fld IntroText
  put "About playCD" into fld Intro
  put gtext into bg fld introtext
  set scroll of bg fld introtext to 0
  unlock screen
end Help